126 576 540 ^E mul round sub moveto ^F show

initmatrix 0 792 translate -90 rotate

/|______TestFont findfont 540 scalefont setfont